home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / comm / mail / YAT.lha / YAT / Install / Developer / Example.script < prev    next >
Encoding:
AmigaDOS Script File  |  2000-08-18  |  427 b   |  20 lines
  1. .key FILE
  2. .bra {
  3. .ket }
  4.  
  5. ; Component 1.3, by The Hanged Man
  6. ; USAGE: Component FILENAME/A,DEVICE/S,PATH/S,DRAWER/S,NAME/S,EXT/S,NOEXT/S
  7. ; example script
  8. ; et lille script der cd'er før et program køres
  9.  
  10. Component >ENV:PATH{$$} {FILE} PATH
  11. if "$PATH{$$}" EQ ""
  12.  Echo "No path available"
  13. else
  14.  CD $PATH{$$}
  15.  Component >ENV:NAME{$$} {FILE} NAME
  16.  Run <NIL: >NIL: $NAME{$$}
  17. EndIF
  18. Delete >NIL: ENV:PATH{$$}
  19. Delete >NIL: ENV:NAME{$$}
  20.